Những câu hỏi liên quan
Quảng Nguyễn
Xem chi tiết
Quân Chí
Xem chi tiết
Kiều Vũ Linh
3 tháng 5 2023 lúc 7:14

a) var cannang:array[10..100] of real;

b) a[7]:=20;

Bình luận (0)
Lê Thị Bảo Khánh
Xem chi tiết
Ngô Thị Thùy Trang
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 5 2021 lúc 20:45

a) var a:array[1..50]of real;

Bình luận (0)
Nguyễn Lê Phước Thịnh
9 tháng 5 2021 lúc 20:45

b) a[5]:=8;

Bình luận (0)
Nguyễn Lê Phước Thịnh
9 tháng 5 2021 lúc 20:45

c) readln(a[2]);

Bình luận (0)
Tiến Lê
Xem chi tiết
Vũ Hạ Linh
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 21:10

Câu 1: 

a) var a:array[1..50]of real;

b) a[5]:=8;

c) for i:=1 to 50 do  

begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to 50 do 

 write(a[i]:4);

 

Bình luận (0)
Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 21:10

Câu 2: 

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 10 do 

  s:=s+i;

writeln(s);

readln;

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 21:11

Câu 3: 

b) a[2]=37

a[9]=25

Bình luận (0)
Phuonq Ly
Xem chi tiết
Lan Anh
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 20:04

a) a[2]:=100;

a[5]:=150;

Bình luận (0)
Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 20:04

b) a[1]:=a[1]+2;

a[3]:=a[3]+2;

Bình luận (0)
hamhochoi
Xem chi tiết